home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 88xx / 8801a.d64 / verstecktes dir. (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  792 b   |  31 lines
  1. 1 REM  ****************************
  2. 2 REM  *   VERSTECKTES DIRECTORY  *
  3. 3 REM  *   GESCHRIEBEN 1987 VON   *
  4. 4 REM  *       RAIMUND GENES      *
  5. 5 REM  ****************************
  6. 10 PRINT"[147]            WAEHLEN SIE:"
  7. 20 PRINT"     1=DIRECTORY VERSTECKEN"
  8. 30 PRINT"     2=DIRECTORY SICHTBAR MACHEN"
  9. 40 PRINT"     3=ABBRUCH"
  10. 50 GETA$:IFA$=""THEN60
  11. 60 IFA$="1"THEN B=255:T$="VERSTECKEN":GOTO 100
  12. 70 IFA$="2"THEN B=0:T$="SICHTBAR MACHEN":GOTO 100
  13. 80 IFA$="3"THEN END
  14. 90 GOTO50
  15. 100 PRINT"[147]      DIRECTORY ";T$,"[146]"
  16. 110 PRINT"  DRUECKEN SIE 'J' ZUM AUSFUEHREN"
  17. 120 PRINT"               'N' ZUM ABBRUCH"
  18. 130 GETA$:IFA$=""THEN130
  19. 140 IFA$="J"THEN 170
  20. 150 IFA$="N"THEN 10
  21. 160 GOTO130
  22. 170 OPEN15,8,15,"I"
  23. 180 OPEN4,8,4,"#"
  24. 190 PRINT#15,"U1 4 0 18 1"
  25. 200 PRINT#15,"B-P 4 0"
  26. 210 PRINT#4,CHR$(B)
  27. 220 PRINT#15,"U2 4 0 18 1
  28. 230 [152]15,"I"
  29. 240 [160]4:[160]15
  30. 250 [153]"       FUNKTION IST AUSGEFUEHRT"
  31.